home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / sound / guitarchord / guitarchord.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-29  |  6KB  |  168 lines

  1.  
  2. /* GuitarChord.rexx - by MrDoc (1999) */
  3.  
  4. options results
  5. address music
  6. parse arg comm
  7.  
  8. MUIA_TWFmultiLED_Colour         =    0xfebd0001
  9. MUIA_TWFmultiLED_Custom         =    0xfebd0002
  10. MUIA_TWFmultiLED_Type           =    0xfebd0003
  11. MUIA_TWFmultiLED_Free           =    0xfebd0004
  12. MUIA_TWFmultiLED_TimeDelay      =    0xfebd0005
  13.  
  14.  
  15. MUIV_TWFmultiLED_Colour_Off      =   0
  16. MUIV_TWFmultiLED_Colour_On       =   1
  17. MUIV_TWFmultiLED_Colour_Ok       =   2
  18. MUIV_TWFmultiLED_Colour_Error    =   4
  19. MUIV_TWFmultiLED_Colour_Panic    =   5
  20.  
  21. MUIV_TWFmultiLED_Type_Square5    =   2
  22.  
  23. MUIV_TWFmultiLED_TimeDelay_User  =  -1
  24. MUIV_TWFmultiLED_TimeDelay_Off   =   0
  25.  
  26. Group_HorizSpacing = 0x8042c651
  27. Group_VertSpacing  = 0x8042e1bf
  28.  
  29. window id W1 COMMAND """address command delete 'ram:chords' 'quiet >nil:';
  30.                   address music 'quit';""" port inline title "GuitarChord"
  31.     group
  32.     group HORIZ frame
  33.         label left "Search chord -->"
  34.         string id s1 COMMAND """GChordcomm.rexx CHORD"""
  35.     endgroup
  36.     group HORIZ frame
  37.     group frame
  38.     label center "\033bPosition 1"
  39.     group HORIZ frame
  40.         label center "-Basefret-"
  41.         text id TG1 label "\033c\033b1"
  42.     endgroup
  43.     space
  44.     group frame
  45.         label center "E A D G B E"
  46.         group HORIZ frame Group_HorizSpacing 2
  47.             do i = 1 to 6
  48.                 object class "TWFmultiLED.mcc" id L0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  49.             end
  50.         endgroup
  51.     endgroup
  52.     group HORIZ frame Group_HorizSpacing 2
  53.            do i = 1 to 6
  54.             object class "TWFmultiLED.mcc" id L1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  55.         end
  56.     endgroup
  57.     group HORIZ frame Group_HorizSpacing 2
  58.            do i = 1 to 6
  59.             object class "TWFmultiLED.mcc" id L2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  60.         end
  61.     endgroup
  62.     group HORIZ frame Group_HorizSpacing 2
  63.         do i = 1 to 6
  64.             object class "TWFmultiLED.mcc" id L3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  65.         end
  66.     endgroup
  67.     group HORIZ frame Group_HorizSpacing 2
  68.         do i = 1 to 6
  69.             object class "TWFmultiLED.mcc" id L4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  70.         end
  71.     endgroup
  72.     group HORIZ frame Group_HorizSpacing 2
  73.         do i = 1 to 6
  74.             object class "TWFmultiLED.mcc" id L5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  75.         end
  76.     endgroup
  77.     text id TN1
  78.     endgroup
  79.     group frame
  80.     label center "\033bPosition 2"
  81.     group HORIZ frame
  82.         label center "-Basefret-"
  83.         text id TG2 label "\033c\033b1"
  84.     endgroup
  85.     space
  86.     group frame
  87.         label center "E A D G B E"
  88.         group HORIZ frame Group_HorizSpacing 2
  89.             do i = 1 to 6
  90.                 object class "TWFmultiLED.mcc" id M0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  91.             end
  92.         endgroup
  93.     endgroup
  94.     group HORIZ frame Group_HorizSpacing 2
  95.         do i = 1 to 6
  96.             object class "TWFmultiLED.mcc" id M1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  97.         end
  98.     endgroup
  99.     group HORIZ frame Group_HorizSpacing 2
  100.         do i = 1 to 6
  101.             object class "TWFmultiLED.mcc" id M2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  102.         end
  103.     endgroup
  104.     group HORIZ frame Group_HorizSpacing 2
  105.         do i = 1 to 6
  106.             object class "TWFmultiLED.mcc" id M3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  107.         end
  108.     endgroup
  109.     group HORIZ frame Group_HorizSpacing 2
  110.         do i = 1 to 6
  111.             object class "TWFmultiLED.mcc" id M4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  112.         end
  113.     endgroup
  114.     group HORIZ frame Group_HorizSpacing 2
  115.         do i = 1 to 6
  116.             object class "TWFmultiLED.mcc" id M5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  117.         end
  118.     endgroup
  119.     text id TN2
  120.     endgroup
  121.     group frame
  122.     label center "\033bPosition 3"
  123.     group HORIZ frame
  124.         label center "-Basefret-"
  125.         text id TG3 label "\033c\033b1"
  126.     endgroup
  127.     space
  128.     group frame
  129.         label center "E A D G B E"
  130.         group HORIZ frame Group_HorizSpacing 2
  131.             do i = 1 to 6
  132.                 object class "TWFmultiLED.mcc" id N0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  133.             end
  134.         endgroup
  135.     endgroup
  136.     group HORIZ frame Group_HorizSpacing 2
  137.         do i = 1 to 6
  138.             object class "TWFmultiLED.mcc" id N1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  139.         end
  140.     endgroup
  141.     group HORIZ frame Group_HorizSpacing 2
  142.         do i = 1 to 6
  143.             object class "TWFmultiLED.mcc" id N2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  144.         end
  145.     endgroup
  146.     group HORIZ frame Group_HorizSpacing 2
  147.         do i = 1 to 6
  148.             object class "TWFmultiLED.mcc" id N3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  149.         end
  150.     endgroup
  151.     group HORIZ frame Group_HorizSpacing 2
  152.         do i = 1 to 6
  153.             object class "TWFmultiLED.mcc" id N4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  154.         end
  155.     endgroup
  156.     group HORIZ frame Group_HorizSpacing 2
  157.         do i = 1 to 6
  158.             object class "TWFmultiLED.mcc" id N5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  159.         end
  160.     endgroup
  161.     text id TN3
  162.     endgroup
  163.     endgroup
  164.     view id V1 string "Type the chord you want to see in the 'search chord' input field. Up to 3 chord fingerings will be shown, depending on the chord."
  165. endgroup
  166. endwindow
  167.  
  168.